home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / qlib205.zip / QLIB.ZIP / TEST / VIGOR.ASM < prev    next >
Assembly Source File  |  1997-07-02  |  2KB  |  116 lines
  1. ;Vigourous TEST v1.01
  2.  
  3. include qlib.inc
  4. include stdio.inc
  5. include conio.inc
  6. include alloc.inc
  7.  
  8. .code
  9.  
  10. align 4
  11. r1 REAL10 1.1
  12.  
  13. asiz equ 10000
  14. h1 dd ?
  15. h2 dd ?
  16. h3 dd ?
  17. h4 dd ?
  18. dma1 dma_s <>
  19. dma2 dma_s <>
  20.  
  21. cnt dd 0
  22.  
  23. main proc
  24.   callp clrscr
  25.   callp printf,"Vigorous Test v1.01"
  26.   xor ebx,ebx
  27. @@:
  28.   callp gotoxy,1,3
  29.   callp printf,"Count=%i",cnt
  30.   inc cnt
  31.   callp malloc,asiz
  32.   mov h1,eax
  33.   .if eax==NULL
  34.     mov edx,"malloc()"
  35.     jmp failed
  36.   .endif
  37.  
  38.   callp calloc,asiz,1
  39.   mov h2,eax
  40.   .if eax==ERROR
  41.     mov edx,"calloc()"
  42.     jmp failed
  43.   .endif
  44.  
  45.   callp lock_ram,h2,asiz
  46.   .if eax==ERROR      
  47.     mov edx,"lock_ram(2)"
  48.     jmp failed
  49.   .endif
  50.  
  51.   callp lock_ram,h1,asiz
  52.   .if eax==ERROR
  53.     mov edx,"lock_ram(1)"
  54.     jmp failed
  55.   .endif
  56.  
  57.   mov dma1.siz,4*1024
  58.   mov dma1.dmach,1
  59.   callp dma_alloc64,offset dma1
  60.   .if eax==ERROR
  61.     mov edx,"dma_alloc64()"
  62.     jmp failed
  63.   .endif
  64.   mov dma2.siz,4*1024
  65.   mov dma2.dmach,1
  66.   callp dma_alloc128,offset dma2
  67.   .if eax==ERROR
  68.     mov edx,"dma_alloc128()"
  69.     jmp failed
  70.   .endif
  71.   callp dma_free,offset dma2
  72.   callp dma_free,offset dma1
  73.  
  74.   callp unlock_ram,h1,asiz
  75.   .if eax==ERROR
  76.     mov edx,"unlock_ram(1)"
  77.     jmp failed
  78.   .endif
  79.  
  80.   callp unlock_ram,h2,asiz
  81.   .if eax==ERROR
  82.     mov edx,"unlock_ram(2)"
  83.     jmp failed
  84.   .endif
  85.  
  86.   callp free,h1
  87.   .if eax==ERROR
  88.     mov edx,"free(1)"
  89.     jmp failed
  90.   .endif
  91.  
  92.   callp free,h2
  93.   .if eax==ERROR
  94.     mov edx,"free(2)"
  95.     jmp failed
  96.   .endif
  97.  
  98.   callp kbhit
  99.   cmp al,0
  100.   jz @b
  101.  
  102.   call getch
  103.  
  104.   ret
  105.  
  106. failed:
  107.   callp clrscr
  108.   callp printf,"Count=%i\n",cnt
  109.   callp printf,"Vigorous test failed!!!\n"
  110.   callp printf,"%s\n",edx
  111.   ret
  112. main endp
  113.  
  114. end
  115.  
  116.